perm filename TEST2[S1,ALS] blob sn#389657 filedate 1978-10-22 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PROGRAM TEST(INPUT*,OUTPUT)
C00003 ENDMK
CāŠ—;
PROGRAM TEST(INPUT*,OUTPUT);
LABEL 2;
VAR
I:	INTEGER;
A:	ARRAY[1..1024] OF CHAR;
BEGIN
  I:=1;
  RESET(INPUT);
  WHILE NOT  EOF(INPUT) DO  BEGIN
    WHILE NOT EOLN(INPUT) DO BEGIN
      READ(INPUT,A[I]); I:=I+1  END;
    READLN(INPUT);
    A[I]:='Y'; I:=I+1  END;
  A[I]:='Z';
  REWRITE(OUTPUT);
  FOR I:=1 TO 1024 DO BEGIN
    IF A[I]='Z' THEN GOTO 2;
    IF A[I]<>'Y' THEN WRITE(OUTPUT,A[I]) ELSE  WRITELN(OUTPUT);
    END;
2:
END.